home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fastpix / frmmain.frm < prev    next >
Text File  |  1999-09-14  |  3KB  |  96 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form frmMain 
  4.    Caption         =   "FastPix"
  5.    ClientHeight    =   4245
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4245
  11.    ScaleWidth      =   6000
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command2 
  14.       Caption         =   "AddNoise 8bpp"
  15.       Height          =   255
  16.       Left            =   120
  17.       TabIndex        =   4
  18.       Top             =   3480
  19.       Width           =   5775
  20.    End
  21.    Begin ComctlLib.ProgressBar PB1 
  22.       Height          =   135
  23.       Left            =   120
  24.       TabIndex        =   3
  25.       Top             =   4050
  26.       Visible         =   0   'False
  27.       Width           =   5655
  28.       _ExtentX        =   9975
  29.       _ExtentY        =   238
  30.       _Version        =   327682
  31.       Appearance      =   1
  32.    End
  33.    Begin ComctlLib.StatusBar StatusBar1 
  34.       Align           =   2  'Align Bottom
  35.       Height          =   285
  36.       Left            =   0
  37.       TabIndex        =   2
  38.       Top             =   3960
  39.       Width           =   6000
  40.       _ExtentX        =   10583
  41.       _ExtentY        =   503
  42.       Style           =   1
  43.       SimpleText      =   ""
  44.       _Version        =   327682
  45.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  46.          NumPanels       =   1
  47.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  48.             Object.Tag             =   ""
  49.          EndProperty
  50.       EndProperty
  51.    End
  52.    Begin VB.CommandButton Command1 
  53.       Caption         =   "DoBlur 8bpp"
  54.       Height          =   255
  55.       Left            =   120
  56.       TabIndex        =   1
  57.       Top             =   3120
  58.       Width           =   5775
  59.    End
  60.    Begin VB.PictureBox Picture1 
  61.       AutoRedraw      =   -1  'True
  62.       AutoSize        =   -1  'True
  63.       BorderStyle     =   0  'None
  64.       Height          =   3000
  65.       Left            =   0
  66.       Picture         =   "frmMain.frx":0000
  67.       ScaleHeight     =   3000
  68.       ScaleWidth      =   6000
  69.       TabIndex        =   0
  70.       Top             =   0
  71.       Width           =   6000
  72.    End
  73. End
  74. Attribute VB_Name = "frmMain"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79. Dim myPix As New FastPixels
  80.  
  81. Private Sub Command1_Click()
  82.     PB1.Visible = True
  83.     myPix.DoBlur8 Picture1, PB1
  84.     PB1.Visible = False
  85. End Sub
  86.  
  87. Private Sub Command2_Click()
  88.     PB1.Visible = True
  89.     myPix.AddNoise8 3000, Picture1, PB1
  90.     PB1.Visible = False
  91. End Sub
  92.  
  93. Private Sub Form_Load()
  94.     PB1.value = 0
  95. End Sub
  96.